<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>32</cardCount>
<cardID>2941</cardID>
<listID>10773</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>480</width>
<height>296</height>
</cardSize>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HyperBibTeX HelpVersion 0.9.827-Sep-93©Copyright 1992, 1993 the Summer Institute of Linguistics, Inc.All Rights Reserved.Global variables used in stack script:olduserlevel, oldblindtyping, oldpowerkeys, oldtextarrows, topicNumber, HBVersionBackgrounds in this stack:Help Topics, Help CardsOther scripts in this stack are found in:bkgnd script of "Help Cards"cd script of first cdFullBalloons 1.0(© F. Rinaldi)FullReplace 1.1 (© F. Rinaldi)ResText 1.4 (© F. Rinaldi)∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞----- User Preferences, keyboard assignments -------programs Home, End, PageUp, PageDown, and Del keyson keyDown Keyif Key = numToChar(1) then go first --Homeelse if Key = numToChar(4) then go last --Endelse if Key = numToChar(11) then go prev --PageUpelse if Key = numToChar(12) then go next --PageDownelse if Key = numToChar(127) then beep --Delelse pass keyDownend keyDownon commandKeyDown Keyif Key = "n" then beep --new cardif Key = "v" then beep --pasteelse if charToNum(Key) = 8 then beep --command-Delete to delete cardelse pass commandKeyDownend commandKeyDown----- Start-up and close-down handlers -----on openStackset cursor to watchdisallowInterruptionif the version of HyperCard < 2 thenbeep 2answer "HyperBibTeX requires HyperCard version 2. Sending you Home now"go Homeexit to HyperCardend ifcheckHBHelpVersionlock screencleanEnterset userlevel to 3set blindtyping to falseset textarrows to falseshow groupssetupMenusset userlevel to 2set scroll of cd fld "Topic List" of cd 1 to 0allowInterruptionend openStackon closeStackset cursor to watchglobal topicNumberdisallowInterruptionset cursor to watchlock screencleanExitput empty into topicNumberunlock screen with visual zoom closeallowInterruptionend closeStackon resumeStackset cursor to watchdisallowInterruptionlock screencleanEnterset userlevel to 3set blindtyping to falseset textarrows to falseshow groupssetupMenusset userlevel to 2allowInterruptionend resumeStackon suspendStackset cursor to watchdisallowInterruptionlock screencleanExitunlock screenallowInterruptionend suspendStackon cleanEnterglobal olduserlevel, oldblindtyping, oldpowerkeys, oldtextarrowsif olduserlevel is empty then put the userlevel into olduserlevelif oldblindtyping is empty then put the blindtyping into oldblindtypingif oldpowerkeys is empty then put the powerkeys into oldpowerkeysif oldtextarrows is empty then put the textarrows into oldtextarrowsset editbkgnd to falsehide msghide window "Scroll"if there is a window "Navigator" then close window "Navigator"reset menubarshow menubarshow titlebarend cleanEnteron cleanExitglobal olduserlevel, oldblindtyping, oldpowerkeys, oldtextarrowsset userlevel to olduserlevelset blindtyping to oldblindtypingset powerkeys to oldpowerkeysset textarrows to oldtextarrowshide msghide window "Scroll"if there is a window "Navigator" then close window "Navigator"reset menubarshow menubarshow titlebarend cleanExiton setupMenusif there is not a window "Index" then deleteMenu "Font"if there is not a window "Index" then deleteMenu "Style"deleteMenu "Objects"deleteMenu "Tools"deleteMenuItem "New Stack...","File"deleteMenuItem "Delete Stack...","File"deleteMenuItem "New Card","Edit"deleteMenuItem "Delete Card","Edit"if there is not a menuItem "Navigator" of menu "Go"then put "Navigator" after menu "Go" with menuMessage "showNav"set commandChar of menuItem "Navigator" of menu "Go" to "J"set the name of menuItem 1 of menu "Apple" to "About HyperBibTeX..."set the menuMsg of menuItem 1 of menu "Apple" to "AboutBtn"end setupMenuson AboutBtnsend mouseup to btn "About HyperBibTeX" of first cdend AboutBtnon checkHBHelpVersionglobal HBVersionif HBVersion is empty then exit checkHBHelpVersionput getVERS("HBVersion",value(word 2 of the long name of this stack)) into HBHelpVersionif HBHelpVersion is not HBVersion thenbeep 2answer "You are presently using version"&&HBVersion&&"of HyperBibTeX,"¬&&"but this Help stack is intended for version"&&HBHelpVersion&"."¬&&"To be safe, you should use the same version of the stacks."end ifend checkHBHelpVersion--this handler is also in script of bg "HB Utility Cards"function getVERS resName,fileNameif word 1 of it is "Error" thenreturn "???"elseput restext("vers",resName,fileName) into itput fullReplace(it,"[0]","") into itput char offset("[",it)+1 to offset("]",it)-1 of it into xreturn char offset("]",it)+1 to offset("]",it)+x of itend ifend getVERS----- Low-level handlers -----on balloon helpMessageFullBalloons "showDirect",helpMessageend balloonon mouseWithinget word 1 to 2 of the target&&number of the targetFullBalloons "IsShowing"if word 1 of the result is "Error" then exit mouseWithinif not the result and it <> the selectedFieldthen send mouseEnter to the targetend mouseWithinon deletecardbeepend deletecardon sortbeepend sorton deletebuttonbeepend deletebuttonon deletefieldbeepend deletefieldon doMenu menuItemif menuItem is "Delete Card" or menuItem is "Cut Card" ¬or menuItem is "Copy Card" or menuItem is "Paste Card" ¬or menuItem is "New Card" or menuItem is "Background" ¬or menuItem is "Delete Stack..." thenbeepexit to HyperCardelse if menuItem is "Quit Hypercard" thenanswer "Quit Hypercard?" with "Quit" or "Cancel"if it is "Quit" then pass doMenuelse exit doMenuelse if menuItem is "Home" thenanswer "Go to Home stack?" with "Home" or "Cancel"if it is "Home" then pass doMenuelse exit doMenuelse if menuItem is "Help" thenanswer "Go to HyperCard Help stack?" with "Help" or "Cancel"if it is "Help" then pass doMenuelse exit doMenuelse if menuItem is "Close Stack" thenanswer "Close this stack?" with "Close" or "Cancel"if it is "Close" then pass doMenuelse exit doMenuelse pass doMenuend doMenuon showNav-- Requires XCMD: palette "Navigator"if there is a window "Navigator" then close window "Navigator"else palette "Navigator"end showNavon deleteMenu menuif there is a menu value(quote&menu"e)then delete menu value(quote&menu"e)end deleteMenuon deleteMenuItem item,menuif there is a menuItem value(quote&item"e) of menu value(quote&menu"e)then delete menuItem value(quote&item"e) of menu value(quote&menu"e)end deleteMenuItemon disallowInterruption -- so can't stop scripts while runningset cantAbort of this stack to trueend disallowInterruptionon allowInterruption -- so can stop scripts while runningset cantAbort of this stack to falseend allowInterruption----- Help stack handlers -----on returnToTopicListglobal topicNumbervisual dissolvego cd "Topic List"if topicNumber is not empty thenselectWholeLine topicNumber, the name of cd fld "Topic List"end ifend returnToTopicList-- The following handlers (modulo a few localizations) are borrowed-- from the Hypercard Help stack and presumably are-- © Copyright 1990 by Apple Computer, Inc.on goTopicglobal topicNumberset cursor to watchput word 2 of the clickLine into topicNumberselectWholeLine topicNumber, the targetlock screengoCard the selectionunlock screen with zoom outend goTopicon goCard cardName-- Jumps to a card by name, making sure to truncate the name-- to 28 chars. All card names are truncated already.set cursor to watchif cardName is empty then exit goCardgo card truncateName(cardName)if the mouse is down then exit goCard -- trap double clickend goCardon selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" && theFieldend ifend selectWholeLinefunction truncateName theCard-- Removes spaces from a card name, truncates it, and removes-- spaces again. To use with navigation, you should set-- the name of all the cards in a stack with truncateName.return deleteSpaces(char 1 to 28 of deleteSpaces(theCard))end truncateNamefunction deleteSpaces someTextreturn word 1 to (the number of words of someText) of someTextend deleteSpaceson hypertext theTextpush cdvisual zoom outif there is a cd theText then go cd theTextelse if theText is "entry type" or theText is "entry types" thengo cd "definitions of entry types"else if theText is "authority list" or theText is "build list" thengo cd "authority lists"else if theText is "preferences" thengo cd "setting preferences"else if theText is "key field" thengo cd "entry key versus key field"else if theText is "entry key" thengo cd "entry key versus key field"else if theText is "marking card" or theText is "marked card" or theText is "mark card" thengo cd "marking and unmarking cards"else if theText is "export" thengo cd "exporting"else if theText is "import" thengo cd "importing"else if theText is "user-defined" or theText is "user fields" thengo cd "user-defined fields"else if theText is "balloon help" thengo cd "using balloon help"else if theText is "abbreviation" thengo cd "abbreviations"else if theText is "message box" thengo cd "using the message box"else if theText is "find" thengo cd "searching"else if theText is "sort" thengo cd "sorting"else if theText is "verify field" thengo cd "verifying field contents"else if theText is "find duplicates" thengo cd "finding duplicate cards"else if theText is "check keys" thengo cd "checking keys"else if theText is "cross-reference" or theText is "CrossRef" thengo cd "cross-references"else if theText is "index" thengo cd "index window"else if theText is "bug" thengo cd "Bugs in HyperBibTeX"else if theText is "upgrading" or theText is "upgrade"thengo cd "Upgrading to a new version o"else if theText is "accented characters" thengo cd "Handling accented characters"else play "harpsichord" "e"select emptyend hypertext</script>
